PROGRAM 0   12 BYTES

0: LABEL 0
   EXECUTE PROGRAM 1
   GOTO 0

PROGRAM 1   1277 BYTES

   DPY-PRESS CONT TO BEGIN TEST #
   STOP
   DPY-REMOVE PROCESSOR U3   CONT#
   STOP
   DPY-REMOVE STRAP AT E8    CONT#
   STOP
   DPY-INSTALL UUT ON TESTER CONT#
   STOP
   DPY-INSTALL POD AT U3     CONT#
   STOP
   DPY-VERIFY UUT STRAPPING  CONT#
   STOP
   DPY-SET UUT,TESTER POWER ON#
   REG8 = 7D
   EXECUTE PROGRAM 18
   EXECUTE PROGRAM 15
   DPY-RUN ALL TESTS ?A#
   IF REGA = 1 GOTO 0
   DPY-ENTER START POINT NO. /8#
   IF REG8 = 1 GOTO 0
   IF REG8 = 2 GOTO 1
   IF REG8 = 3 GOTO 2
   IF REG8 = 4 GOTO 3
   IF REG8 = 5 GOTO 4
   IF REG8 = 6 GOTO 5
   IF REG8 = 7 GOTO 6
   IF REG8 = 8 GOTO 7
   IF REG8 = 9 GOTO 8
   IF REG8 = 10 GOTO 9
   IF REG8 = 11 GOTO A
   IF REG8 = 12 GOTO B
   IF REG8 = 13 GOTO C
   GOTO D
0: LABEL 0
   EXECUTE PROGRAM 2
   DPY-TURN OFF TESTER POWER #
   REG8 = 7D
   EXECUTE PROGRAM 18
   DPY-REMOVE U17 AND INSTALL P1 CONT#
   STOP
   DPY-TURN ON TESTER POWER #
   REG8 = 7D
   EXECUTE PROGRAM 18
1: LABEL 1
   EXECUTE PROGRAM 3
2: LABEL 2
   EXECUTE PROGRAM 4
3: LABEL 3
   EXECUTE PROGRAM 5
4: LABEL 4
   DPY-TESTING SLAVE PROCESSOR CIRCUITS
   EXECUTE PROGRAM 6
5: LABEL 5
   DPY-TESTING SLAVE PROCESSOR CIRCUITS
   EXECUTE PROGRAM 7
6: LABEL 6
   DPY-TESTING SLAVE PROCESSOR CIRCUITS
   EXECUTE PROGRAM 8
7: LABEL 7
   DPY-TESTING SLAVE PROCESSOR CIRCUITS
   EXECUTE PROGRAM 9
8: LABEL 8
   DPY-TESTING SLAVE PROCESSOR CIRCUITS
   EXECUTE PROGRAM 10
   DPY-SET UUT,TESTER POWER OFF#
   REG8 = 7D
   EXECUTE PROGRAM 18
   DPY-REMOVE PROCESSOR U36 CONT#
   STOP
   DPY-MOVE POD U3 TO U36   CONT#
   STOP
   DPY-REINSTALL PROCESSOR U3  CONT#
   STOP
   DPY-REMOVE P1 AT RAM U17   CONT#
   STOP
   DPY-REINSTALL RAM U17  CONT#
   STOP
   DPY-SET UUT,TESTER POWER ON#
   REG8 = 7D
   EXECUTE PROGRAM 18
   EXECUTE PROGRAM 19
9: LABEL 9
   EXECUTE PROGRAM 12
   DPY-TURN OFF TESTER POWER #
   REG8 = 7D
   EXECUTE PROGRAM 18
   DPY-REMOVE U34 AND INSTALL P1 CONT#
   STOP
   DPY-TURN ON TESTER POWER #
   REG8 = 7D
   EXECUTE PROGRAM 18
A: LABEL A
   EXECUTE PROGRAM 19
   EXECUTE PROGRAM 11
B: LABEL B
   EXECUTE PROGRAM 13
C: LABEL C
   DPY-TESTING MASTER PROCESSOR CIRCUIT
   EXECUTE PROGRAM 14
   DPY-ALARM PROCESSOR TESTS PASSED#
   REG8 = 7D
   EXECUTE PROGRAM 18
   DPY-SET UUT,TESTER POWER OFF#
   REG8 = 7D
   EXECUTE PROGRAM 18
   DPY-REMOVE POD AND P1 FROM UUT CONT#
   REG8 = C8
   EXECUTE PROGRAM 18
   DPY-REINSTALL PARTS GOTO NEXT UUT#
   REG8 = C8
   EXECUTE PROGRAM 18
D: LABEL D

PROGRAM 2   87 BYTES

   BUS TEST
   DPY-U16 RAM TEST RUNNING
   REG9 = 16
   WRITE @ 212000 = 0
   WRITE @ 213FFF = 01
   EXECUTE PROGRAM 17
   EXECUTE PROGRAM 15
   DPY-RAM TESTS PASSED#
   REG8 = 55
   EXECUTE PROGRAM 18

PROGRAM 3   134 BYTES

   REG1 = 1
   DPY-REMOVE FUSE F1      CONT#
   STOP
   DPY-ARE FUSE,ALARM LEDS ON ?A#
   IF REGA = 0 GOTO 0
   DPY-REINSTALL FUSE F1   CONT#
   STOP
   DPY-PUSH UUT SW2 AND HOLD   CONT#
   STOP
   READ @ STS
   READ @ STS
   REGA = REGC AND 10
   IF REGA = 0 GOTO 0
   DPY-RELEASE SW2             CONT#
   STOP
   REG1 = 2
   DPY-HOLD PROBE ON U41-8     CONT#
   STOP
   DPY-SLAVE WATCHDOG TEST RUNNING
   REG2 = 50
   WRITE @ 14002 = FF
   READ PROBE
  IF REGE > 1F GOTO 0
   IF 1F > REGE GOTO 0
   REG1 = 7
   WRITE @ 14080 = BF
   READ @ 50091
   IF REGE > 0 GOTO 0
   WRITE @ 14005 = FF
   GOTO 1
0: LABEL 0
   DPY-FAIL OPTO-ISOLATOR TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 15

PROGRAM 4   219 BYTES

   REG1 = 1
   DPY-DS2 AND DS3 MAY BE ON    CONT#
   STOP
   DPY-ARE OTHER UUT LEDS OFF ?A#
   IF REGA = 0 GOTO 0
   REG1 = 2
   WRITE @ 50097 = 0
   DPY-IS SLAVE RUN LED DS2 OFF ?A#
   IF REGA = 0 GOTO 0
   REG1 = 3
   WRITE @ 50097 = 1
   DPY-IS SLAVE RUN LED DS2 ON ?A#
   IF REGA = 0 GOTO 0
   WRITE @ 50097 = 0
   GOTO 1
0: LABEL 0
   DPY-FAIL IDLE TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 15

PROGRAM 5   440 BYTES

   REG1 = 1
   DPY-INSTALL STRAP AT E8   CONT#
   STOP
1: LABEL 1
   WRITE @ 14002 = FF
   DEC REG2
   WRITE @ 14002 = FF
   IF REG2 = 0 GOTO 2
   WRITE @ 14002 = FF
   GOTO 1
2: LABEL 2
   WRITE @ 14002 = FF
   READ PROBE
   REGA = REG0 AND 1000000
   IF REGA > 0 GOTO 0
   REG8 = 10
   EXECUTE PROGRAM 18
   REG1 = 3
   REG2 = E0
   READ PROBE
3: LABEL 3
   DEC REG2
   IF REG2 = 0 GOTO 4
   GOTO 3
4: LABEL 4
   READ PROBE
   REGA = REG0 AND 1000000
   IF REGA = 0 GOTO 0
   DPY-REMOVE PROBE ###
   REG8 = 55
   EXECUTE PROGRAM 18
   DPY-REMOVE STRAP AT E8        CONT#
   STOP
   GOTO 5
0: LABEL 0
   DPY-FAIL WDS TEST $1#
   STOP
5: LABEL 5
   EXECUTE PROGRAM 15

 

PROGRAM 6   308 BYTES

   REG1 = 1
   WRITE @ 14080 = FE
   READ @ 14000
   IF REGE > 3E GOTO 0
   IF 3E > REGE GOTO 0
   REG1 = 2
   WRITE @ 14080 = FD
   READ @ 14000
   IF REGE > 3D GOTO 0
   IF 3D > REGE GOTO 0
   REG1 = 3
   WRITE @ 14080 = FB
   READ @ 14000
   IF REGE > 3B GOTO 0
   IF 3B > REGE GOTO 0
   REG1 = 4
   WRITE @ 14080 = F7
   READ @ 14000
   IF REGE > 37 GOTO 0
   IF 37 > REGE GOTO 0
   REG1 = 5
   WRITE @ 14080 = EF
   READ @ 14000
   IF REGE > 2F GOTO 0
   IF 2F > REGE GOTO 0
   REG1 = 6
   WRITE @ 14080 = DF
   READ @ 14000
   IF REGE > 1F GOTO 0
   IF 1F > REGE GOTO 0
   REG1 = 7
   WRITE @ 14080 = BF
   READ @ 50091
   IF REGE > 0 GOTO 0
   WRITE @ 14005 = FF
   GOTO 1
0: LABEL 0
   DPY-FAIL OPTO-ISOLATOR TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 15



PROGRAM 7   178 BYTES

   REG1 = 1
   WRITE @ 50091 = 0
   WRITE @ 14003 = AA
   READ @ 14007
   IF REGE > AA GOTO 0
   IF AA > REGE GOTO 0
   REG1 = 2
   READ @ 14098
   IF REGE > AA GOTO 0
   IF AA > REGE GOTO 0
   REG1 = 3
   WRITE @ 14003 = 55
   READ @ 14007
   IF REGE > 55 GOTO 0
   IF 55 > REGE GOTO 0
   REG1 = 4
   READ @ 14098
   IF REGE > 55 GOTO 0
   IF 55 > REGE GOTO 0
   GOTO 1
0: LABEL 0
   DPY-FAIL BD BUS TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 15

PROGRAM 8   116 BYTES

   REG1 = 1
   WRITE @ 14090 = AA
   READ @ 14001
   IF REGE > AA GOTO 0
   IF AA > REGE GOTO 0
   REG1 = 2
   WRITE @ 14090 = 55
   READ @ 14001
   IF REGE > 55 GOTO 0
   IF 55 > REGE GOTO 0
   GOTO 1
0: LABEL 0
   DPY-FAIL DEC BUS TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 15


PROGRAM 9   521 BYTES

   REG1 = 1
   WRITE @ 50091 = 0
   WRITE @ 14003 = FE
   WRITE @ 14004 = FE
   READ @ 14007
   IF REGE > FE GOTO 0
   REG1 = 2
   WRITE @ 14003 = FF
   WRITE @ 14004 = FE
   READ @ 14007
   IF FF > REGE GOTO 0
   REG1 = 3
   WRITE @ 14005 = FE
   READ @ 14088
   IF REGE OR F > 80 OR F GOTO 0
   IF 80 OR F > REGE OR F GOTO 0
   REG1 = 4
   WRITE @ 14005 = FF
   READ @ 14088
   IF REGE OR F > C0 OR F GOTO 0
   IF C0 OR F > REGE OR F GOTO 0
   REG1 = 5
   WRITE @ 14006 = FE
   READ @ 14088
   IF REGE OR F > C0 OR F GOTO 0
   IF C0 OR F > REGE OR F GOTO 0
   REG1 = 6
   WRITE @ 14006 = FF
   READ @ 14088
   IF REGE OR F > E0 OR F GOTO 0
   IF E0 OR F > REGE OR F GOTO 0
   REG1 = 7
   WRITE @ 14007 = FE
   READ @ 14088
   IF REGE OR F > E0 OR F GOTO 0
   IF E0 OR F > REGE OR F GOTO 0
   REG1 = 8
   WRITE @ 14007 = FF
   READ @ 14088
   IF REGE OR F > F0 OR F GOTO 0
   IF F0 OR F > REGE OR F GOTO 0
   REG1 = 9
   WRITE @ 14080 = 7F
   WRITE @ 14080 = FF
   READ @ 14088
   IF REGE OR F > 70 OR F GOTO 0
   IF 70 OR F > REGE OR F GOTO 0
   REG1 = 10
   READ @ 14007
   READ @ 14088
   IF F0 OR F > REGE OR F GOTO 0
   WRITE @ 14005 = FE
   WRITE @ 14006 = FE
   WRITE @ 14007 = FE
   GOTO 1
0: LABEL 0
   DPY-FAIL B SLAVE LINES TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 15

PROGRAM 10   253 BYTES

   REG1 = 1
   WRITE @ 14088 = F6
   READ @ 500B0
   IF 1 > REGE GOTO 0
   REG1 = 2
   WRITE @ 14088 = F2
   READ @ 500B0
   IF REGE > 0 GOTO 0
   REG1 = 3
   WRITE @ 14088 = F7
   WRITE @ 50090 = 0
   READ @ 500B0
   IF 1 > REGE GOTO 0
   WRITE @ 14088 = EF
   REG1 = 4
   WRITE @ 50090 = 1
   WRITE @ 50092 = 0
   WRITE @ 500B1 = 0
   READ @ 14088
   IF REGE OR F0 > D OR F0 GOTO 0
   IF D OR F0 > REGE OR F0 GOTO 0
   REG1 = 5
   WRITE @ 500B1 = 1
   READ @ 14088
   IF F OR F0 > REGE OR F0 GOTO 0
   GOTO 1
0: LABEL 0
   DPY-FAIL SLAVE TRANSCIEVER TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 15

PROGRAM 11   221 BYTES

   REG1 = 1
   DPY-DS2 AND DS3 MAY BE ON    CONT#
   STOP
   DPY-ARE OTHER UUT LEDS OFF ?A#
   IF REGA = 0 GOTO 0
   REG1 = 2
   WRITE @ 50097 = 0
   DPY-IS MASTER RUN LED DS3 OFF ?A#
   IF REGA = 0 GOTO 0
   REG1 = 3
   WRITE @ 50097 = 1
   DPY-IS MASTER RUN LED DS3 ON ?A#
   IF REGA = 0 GOTO 0
   WRITE @ 50097 = 0
   GOTO 1
0: LABEL 0
   DPY-FAIL IDLE TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 19

PROGRAM 12   87 BYTES

   BUS TEST
   DPY-U34 RAM TEST RUNNING
   REG9 = 34
   WRITE @ 212000 = 0
   WRITE @ 213FFF = 01
   EXECUTE PROGRAM 17
   EXECUTE PROGRAM 19
   DPY-RAM TESTS PASSED#
   REG8 = 55
   EXECUTE PROGRAM 18

PROGRAM 13   442 BYTES

   REG1 = 1
   DPY-INSTALL STRAP AT E8   CONT#
   STOP
   DPY-PUSH UUT SW2 AND HOLD   CONT#
   STOP
   READ @ STS
   READ @ STS
   REGA = REGC AND 10
   IF REGA = 0 GOTO 0
   DPY-RELEASE SW2             CONT#
   STOP
   REG1 = 2
   DPY-HOLD PROBE ON U41-8     CONT#
   STOP
   DPY-MASTER WATCHDOG TEST RUNNING
   REG2 = 50
   WRITE @ 14002 = FF
   READ PROBE
1: LABEL 1
   WRITE @ 14002 = FF
   DEC REG2
   WRITE @ 14002 = FF
   IF REG2 = 0 GOTO 2
   WRITE @ 14002 = FF


   DPY-R
   GOTO 1
2: LABEL 2
   WRITE @ 14002 = FF
   READ PROBE
   REGA = REG0 AND 1000000
   IF REGA > 0 GOTO 0
   REG8 = 10
   EXECUTE PROGRAM 18
   REG1 = 3
   REG2 = E0
   READ PROBE
3: LABEL 3
   DEC REG2
   IF REG2 = 0 GOTO 4
   GOTO 3
4: LABEL 4
   READ PROBE
   REGA = REG0 AND 1000000
   IF REGA = 0 GOTO 0
   DPY-REMOVE PROBE  ###
   REG8 = 55
   EXECUTE PROGRAM 18
   DPY-REMOVE STRAP AT E8        CONT#
   STOP
   GOTO 5
0: LABEL 0
   DPY-FAIL WDM TEST $1#
   STOP
5: LABEL 5
   EXECUTE PROGRAM 19

PROGRAM 14   523 BYTES

   REG1 = 1
   DPY-INSTALL STRAP AT E12    CONT#
   STOP
   WRITE @ 50090 = 1
   WRITE @ 50096 = 1
   WRITE @ 14088 = F0
   READ @ 500B0
   IF REGE > 0 GOTO 0
   REG1 = 2
   WRITE @ 14088 = F8
   READ @ 500B0
   IF 1 > REGE GOTO 0
   REG1 = 3
   WRITE @ 14088 = F4
   READ @ 500B0
   IF 1 > REGE GOTO 0
   DPY-REMOVE STRAP AT E12    CONT#
   STOP
   REG1 = 4
   WRITE @ 50090 = 0
   WRITE @ 14088 = F
   WRITE @ 50096 = 0
   READ @ 140B8
   IF REGE OR F0 > FC OR F0 GOTO 0
   IF FC OR F0 > REGE OR F0 GOTO 0
   REG1 = 5
   WRITE @ 50096 = 1
   READ @ 140B8
   IF FF OR F0 > REGE OR F0 GOTO 0
   REG1 = 6
   WRITE @ 50090 = 1
   WRITE @ 14088 = FC
   READ @ 50091
   IF REGE > 0 GOTO 0
   REG1 = 7
   WRITE @ 14088 = FD
   READ @ 50091
   IF 1 > REGE GOTO 0
   REG1 = 8
   WRITE @ 14088 = FE
   READ @ 50091
   IF 1 > REGE GOTO 0
   REG1 = 9
   WRITE @ 14088 = C0
   WRITE @ 50096 = 0
   WRITE @ 500B1 = 0
   READ @ 14088
   IF REGE OR F0 > 9 OR F0 GOTO 0
   IF 9 OR F0 > REGE OR F0 GOTO 0
   REG1 = 10
   WRITE @ 500B1 = 1
   READ @ 14088
   IF REGE OR F0 > F OR F0 GOTO 0
   IF F OR F0 > REGE OR F0 GOTO 0
   GOTO 1
0: LABEL 0
   DPY-FAIL MASTER TRANSCIEVER TEST $1#
   STOP
1: LABEL 1
   EXECUTE PROGRAM 19

PROGRAM 15   44 BYTES

   EXECUTE PROGRAM 16
   WRITE @ 40090 = FF


   WRITE @ 400B0 = FF
   WRITE @ 50092 = 1
   WRITE @ 50097 = 0

PROGRAM 16   42 BYTES

   WRITE @ 14003 = FF
   WRITE @ 14080 = FF
   WRITE @ 14088 = FF
   WRITE @ 14090 = FF

PROGRAM 17   297 BYTES

   REG8 = 88
   EXECUTE PROGRAM 18
0: LABEL 0
   READ @ REGF
   IF REGE = F0 GOTO 1
   IF REGE = F1 GOTO 1
   IF REGE = C0 GOTO 2
   IF REGE = A0 GOTO 3
   REG8 = 88
   EXECUTE PROGRAM 18
   GOTO 0
1: LABEL 1
   READ @ F0200A
   REG1 = REGE SHL SHL SHL SHL SHL SHL SHL SHL
   READ @ F02009
   REG1 = REG1 OR REGE SHL SHL SHL SHL SHL SHL SHL SHL
   READ @ F02008
   REG1 = REG1 OR REGE
   READ @ F020F0
   IF REGE = F0 GOTO 4
   IF REGE = F1 GOTO 5
   GOTO 0
4: LABEL 4
   READ @ F0200C
   REG2 = REGE
   READ @ F0200E
   REG3 = REGE
   DPY-U$9 R/W ERR @ $1,EX $2 GOT $3
   STOP
5: LABEL 5
   READ @ F02012
   DPY-U$9 ADDR.DEC. ERR @ $1,$2
   STOP
3: LABEL 3
   DPY-TEST ABORT, ILLEGAL ENTRY
   STOP
2: LABEL 2

PROGRAM 18   21 BYTES

   REG1 = REG8
0: LABEL 0
   DEC REG1
   IF REG1 > 0 GOTO 0

PROGRAM 19   44 BYTES

   EXECUTE PROGRAM 16
   WRITE @ 50097 = 0
   WRITE @ 50096 = 1
   WRITE @ 40090 = FF
   WRITE @ 400B0 = FF

